object UretimArizaParcaGirisF: TUretimArizaParcaGirisF
  Left = 222
  Top = 173
  Width = 986
  Height = 548
  Caption = #220'retim Ar'#305'za Par'#231'a Giri'#351
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnActivate = FormActivate
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object GroupBox3: TGroupBox
    Left = 0
    Top = 42
    Width = 978
    Height = 175
    Align = alTop
    Caption = 'Eski Par'#231'a Giri'#351
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Label3: TLabel
      Left = 8
      Top = 19
      Width = 67
      Height = 14
      Caption = 'Seri Numaras'#305
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 552
      Top = 48
      Width = 49
      Height = 14
      Caption = 'Makina No'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 552
      Top = 24
      Width = 60
      Height = 14
      Caption = 'Personel Ad'#305
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label5: TLabel
      Left = 264
      Top = 24
      Width = 57
      Height = 16
      AutoSize = False
      Caption = 'Stok Kodu'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label6: TLabel
      Left = 264
      Top = 48
      Width = 33
      Height = 16
      AutoSize = False
      Caption = 'Cinsi'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label9: TLabel
      Left = 264
      Top = 72
      Width = 55
      Height = 16
      AutoSize = False
      Caption = #220'retim No'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label10: TLabel
      Left = 552
      Top = 72
      Width = 71
      Height = 14
      Caption = 'Mak.Stok Kodu'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label2: TLabel
      Left = 8
      Top = 70
      Width = 78
      Height = 14
      Caption = 'Par'#231'an'#305'n Ar'#305'zas'#305
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 5
      Top = 92
      Width = 95
      Height = 16
      AutoSize = False
      Caption = 'Ar'#305'zay'#305' Tespit Eden'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label8: TLabel
      Left = 8
      Top = 45
      Width = 44
      Height = 14
      Caption = 'Stokkodu'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 5
      Top = 117
      Width = 95
      Height = 16
      AutoSize = False
      Caption = 'Ar'#305'za A'#231#305'klama'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object ESeriNok: TEdit
      Left = 104
      Top = 16
      Width = 138
      Height = 24
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnExit = ESeriNokExit
    end
    object s2: TStaticText
      Left = 328
      Top = 42
      Width = 201
      Height = 20
      AutoSize = False
      BorderStyle = sbsSunken
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
    end
    object s1: TStaticText
      Left = 328
      Top = 18
      Width = 136
      Height = 20
      AutoSize = False
      BorderStyle = sbsSunken
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
    end
    object s3: TStaticText
      Left = 632
      Top = 40
      Width = 97
      Height = 20
      AutoSize = False
      BorderStyle = sbsSunken
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
    end
    object s8: TStaticText
      Left = 632
      Top = 16
      Width = 145
      Height = 20
      AutoSize = False
      BorderStyle = sbsSunken
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
    end
    object s4: TStaticText
      Left = 328
      Top = 66
      Width = 97
      Height = 20
      AutoSize = False
      BorderStyle = sbsSunken
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 10
    end
    object s6: TStaticText
      Left = 632
      Top = 64
      Width = 144
      Height = 20
      AutoSize = False
      BorderStyle = sbsSunken
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 11
    end
    object Arizasik: TwwDBLookupCombo
      Left = 104
      Top = 66
      Width = 138
      Height = 24
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'ArizaTuru'#9'30'#9'ArizaTuru'#9#9)
      LookupTable = ArizaTuru
      LookupField = 'id'
      Style = csDropDownList
      Navigator = False
      ParentFont = False
      TabOrder = 2
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
    end
    object bekle: TBitBtn
      Left = 111
      Top = 140
      Width = 115
      Height = 30
      Caption = 'Ekle'
      Enabled = False
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = bekleClick
    end
    object wwDBGrid1: TwwDBGrid
      Left = 789
      Top = 10
      Width = 180
      Height = 77
      Cursor = crHandPoint
      DisableThemes = False
      Selected.Strings = (
        'serinos'#9'22'#9'Serinolar'#9'F')
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      DataSource = dsEskiFatharhar
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
      TabOrder = 12
      TitleAlignment = taLeftJustify
      TitleFont.Charset = TURKISH_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      TitleLines = 1
      TitleButtons = False
      UseTFields = False
      OnDblClick = wwDBGrid1DblClick
    end
    object cbPerkod: TwwDBLookupCombo
      Left = 104
      Top = 91
      Width = 138
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'pismi'#9'50'#9'Ad Soyad'#9'F')
      LookupTable = dm.sppersonel
      LookupField = 'PerKod'
      Options = [loColLines, loTitles]
      Style = csDropDownList
      Navigator = False
      ParentFont = False
      TabOrder = 3
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
      ShowMatchText = True
    end
    object lcStokkodu: TwwDBLookupCombo
      Left = 104
      Top = 41
      Width = 138
      Height = 24
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'stokkodu'#9'20'#9'stokkodu'#9'F'
        'cinsi'#9'35'#9'cinsi'#9'F')
      LookupTable = EskiParcaQ
      LookupField = 'stokkod'
      Style = csDropDownList
      Navigator = False
      ParentFont = False
      TabOrder = 1
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
      OnChange = lcStokkoduChange
    end
    object stDegisimTur: TStaticText
      Left = 329
      Top = 91
      Width = 138
      Height = 18
      Caption = 'SER'#304'NUMARASIZ DE'#286#304#350#304'M'
      Color = clRed
      ParentColor = False
      TabOrder = 13
      Visible = False
    end
    object cbDoa: TwwCheckBox
      Left = 263
      Top = 93
      Width = 52
      Height = 17
      DisableThemes = False
      AlwaysTransparent = False
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      DisplayValueChecked = 'True'
      DisplayValueUnchecked = 'False'
      NullAndBlankState = cbUnchecked
      Caption = 'Doa'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 14
      ReadOnly = True
    end
    object Aciklama: TEdit
      Left = 104
      Top = 113
      Width = 426
      Height = 24
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnExit = ESeriNokExit
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 484
    Width = 978
    Height = 37
    Align = alBottom
    TabOrder = 1
    DesignSize = (
      978
      37)
    object bkapat: TBitBtn
      Left = 896
      Top = 6
      Width = 76
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = 'Kapat'
      TabOrder = 0
      OnClick = bkapatClick
    end
    object bgerial: TBitBtn
      Left = 102
      Top = 6
      Width = 85
      Height = 25
      Caption = 'Geri Al'
      TabOrder = 1
      OnClick = bgerialClick
    end
    object byazdir: TBitBtn
      Left = 206
      Top = 6
      Width = 83
      Height = 25
      Caption = 'Yazd'#305'r'
      TabOrder = 2
      Visible = False
      OnClick = byazdirClick
    end
    object bexport: TBitBtn
      Left = 800
      Top = 6
      Width = 83
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = 'Export'
      TabOrder = 3
      OnClick = bexportClick
    end
    object byenile: TBitBtn
      Left = 6
      Top = 6
      Width = 83
      Height = 25
      Caption = 'Yenile - F5'
      TabOrder = 4
      OnClick = byenileClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 0
    Width = 978
    Height = 42
    Align = alTop
    Caption = 'Ar'#305'za Nedeni'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    object parcaarizasic: TRadioButton
      Left = 9
      Top = 17
      Width = 103
      Height = 17
      Caption = 'Par'#231'a Ar'#305'zas'#305
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = parcaarizasicClick
    end
    object uretimarizasic: TRadioButton
      Left = 145
      Top = 16
      Width = 103
      Height = 17
      Caption = #220'retim Ar'#305'zas'#305
      TabOrder = 1
      OnClick = uretimarizasicClick
    end
  end
  object cxgrid1: TcxGrid
    Left = 0
    Top = 217
    Width = 978
    Height = 267
    Align = alClient
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    LookAndFeel.Kind = lfUltraFlat
    LookAndFeel.NativeStyle = True
    object cxgrid1DBTableView1: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = UretimArizaQS
      DataController.Filter.Active = True
      DataController.Filter.AutoDataSetFilter = True
      DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding]
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Format = 'Adet : #'
          Kind = skCount
          FieldName = 'id'
        end>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      FilterRow.InfoText = '  '
      FilterRow.Visible = True
      FilterRow.ApplyChanges = fracImmediately
      OptionsBehavior.IncSearch = True
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsSelection.CellSelect = False
      OptionsSelection.UnselectFocusedRecordOnExit = False
      OptionsView.ColumnAutoWidth = True
      OptionsView.Indicator = True
      Styles.StyleSheet = dm.tvssDevExpress
      object cxgrid1DBTableView1tip: TcxGridDBColumn
        Caption = 'Ar'#305'za Nedeni'
        DataBinding.FieldName = 'tip'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.Items = <
          item
            Description = 'Par'#231'a Ar'#305'zas'#305
            Value = '1'
          end
          item
            Description = #220'retim Ar'#305'zas'#305
            Value = '2'
          end>
        Width = 100
      end
      object cxgrid1DBTableView1islemtarihi: TcxGridDBColumn
        Caption = 'Tarih'
        DataBinding.FieldName = 'islemtarihi'
        Width = 60
      end
      object cxgrid1DBTableView1id: TcxGridDBColumn
        Caption = 'No'
        DataBinding.FieldName = 'id'
        Width = 45
      end
      object cxgrid1DBTableView1stokkodu: TcxGridDBColumn
        Caption = 'Stok Kodu'
        DataBinding.FieldName = 'stokkodu'
        SortIndex = 0
        SortOrder = soAscending
        Width = 150
      end
      object cxgrid1DBTableView1eSeriNo: TcxGridDBColumn
        Caption = 'E.Seri No'
        DataBinding.FieldName = 'eSeriNo'
        Width = 100
      end
      object cxgrid1DBTableView1ySerino: TcxGridDBColumn
        Caption = 'Y.Seri No'
        DataBinding.FieldName = 'ySerino'
        Width = 100
      end
      object cxgrid1DBTableView1personel: TcxGridDBColumn
        Caption = 'Personel'
        DataBinding.FieldName = 'personel'
        Width = 120
      end
      object cxgrid1DBTableView1Makinano: TcxGridDBColumn
        Caption = 'Makina No'
        DataBinding.FieldName = 'Makinano'
        Width = 70
      end
      object cxgrid1DBTableView1arizasi: TcxGridDBColumn
        Caption = 'Ar'#305'zas'#305
        DataBinding.FieldName = 'arizasi'
        Width = 150
      end
      object cxgrid1DBTableView1Aciklama: TcxGridDBColumn
        Caption = 'A'#231#305'klama'
        DataBinding.FieldName = 'Aciklama'
      end
    end
    object cxgrid1Level1: TcxGridLevel
      GridView = cxgrid1DBTableView1
    end
  end
  object EskiParcaQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serino'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select stokkod,'
      '       dbo.getStokkodu(Stokkod) as stokkodu,'
      '       dbo.getCinsi(Stokkod) as cinsi,'
      '       fatharhar.makinano,'
      '       uretimno,'
      '       uretim.tarih,'
      '       dbo.getStokkodu(Uretimkod) as Makinastokkodu,'
      '       dbo.getCinsi(Uretimkod) as Makinacinsi,'
      
        '       peradi=(Select adi+'#39' '#39'+soyadi from perkart where perkart.' +
        'perkod=uretim.perkod),'
      '       perkod       '
      'from fatharhar,uretim '
      'where serinos=:serino and uretim.makinano=fatharhar.makinano'
      '')
    Left = 617
    Top = 65
  end
  object YeniParcaQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'serino'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select *,Stokkodu=dbo.GetStokkodu(Stokkod) from Fatharhar'
      'where serinos=:serino')
    Left = 688
    Top = 156
  end
  object UretimArizaQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'Select dbo.getstokkodu(stokkod) as stokkodu,personel=(select adi' +
        '+'#39' '#39'+soyadi from perkart where perkart.perkod=UretimAriza.Perkod' +
        '),* from UretimAriza '
      'where durum is null'
      'order by id desc'
      '')
    Left = 683
    Top = 67
  end
  object EskiCikarQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'serino'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'Update Fatharhar'
      'set makinano=null'
      'where serinos=:serino')
    Left = 608
    Top = 151
  end
  object YeniEkleQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'Makinano'
        Size = -1
        Value = Null
      end
      item
        Name = 'serino'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'Update Fatharhar'
      'set makinano=:makinano'
      'where serinos=:serino')
    Left = 748
    Top = 110
  end
  object ArizaAciklamasiQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select aciklama from Ariza_Aciklama'
      'where tip=1'
      'order by aciklama')
    Left = 688
    Top = 112
  end
  object UretimArizaQS: TDataSource
    DataSet = UretimArizaQ
    Left = 648
    Top = 16
  end
  object StokkoduQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select stokkod,stokkodu from stok '
      'where aktif='#39'A'#39' and stokkodu='#39'bky.cs-ps/400'#39)
    Left = 728
    Top = 16
  end
  object ArizaTuru: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select * ,ArizaTuru=(Select Turu From ArizaTurleri Where id=TblS' +
        'tokArizaTanimi.ArizaTuruId)'
      'from TblStokArizaTanimi')
    Left = 516
    Top = 278
  end
  object ArizaTuruS: TDataSource
    DataSet = ArizaTuru
    Left = 456
    Top = 278
  end
  object StokGrupModelBulQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'stokkod'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select GrupId from stok'
      'where stokkod=:stokkod')
    Left = 488
    Top = 327
  end
  object Eskifatharhar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'GeciciMakinano'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'EmirNo'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'Serinos'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select serinos from fatharhar'
      'where GeciciMakinano=:GeciciMakinano'
      
        'and Stokkod not in (Select Stokkod From UrEmrihar Where EmirNo=:' +
        'EmirNo and isnull(OtomatikOkutma,0)=0)'
      'and Serinos<>:Serinos')
    Left = 680
    Top = 248
  end
  object dsEskiFatharhar: TDataSource
    DataSet = Eskifatharhar
    Left = 680
    Top = 294
  end
end
